glass<-structure(list(strength = c(0.55, 0.74, 0.77, 0.81, 0.84, 0.93, 
1.04, 1.11, 1.13, 1.24, 1.25, 1.27, 1.28, 1.29, 1.3, 1.36, 1.39, 
1.42, 1.48, 1.48, 1.49, 1.49, 1.5, 1.5, 1.51, 1.52, 1.53, 1.54, 
1.55, 1.55, 1.58, 1.59, 1.6, 1.61, 1.61, 1.61, 1.61, 1.62, 1.62, 
1.63, 1.64, 1.66, 1.66, 1.66, 1.67, 1.68, 1.68, 1.69, 1.7, 1.7, 
1.73, 1.76, 1.76, 1.77, 1.78, 1.81, 1.82, 1.84, 1.84, 1.89, 2, 
2.01, 2.24)), .Names = "strength", row.names = c(NA, 63), class = "data.frame")
